% Modify a character value
% Use: Rogers = modc(Rogers,'str',2)
function Char = modc(Char, Field, value)

try
    switch Field
        case 'hp'
            Char.hp(1) = Char.hp(1) + value;
        case 'ac'
            Char.ac(1) = Char.ac(1) + value;
        case 'bab'
            Char.bab(1) = Char.bab(1) + value;
        case 'speed'
            Char.speed(1) = Char.speed(1) + value;
        case 'str'
            Char.atr.str(1) = Char.atr.str(1) + value;
        case 'dex'
            Char.atr.dex(1) = Char.atr.dex(1) + value;
        case 'con'
            Char.atr.con(1) = Char.atr.con(1) + value;
        case 'int'
            Char.atr.int(1) = Char.atr.int(1) + value;
        case 'wis'
            Char.atr.wis(1) = Char.atr.wis(1) + value;
        case 'cha'
            Char.atr.cha(1) = Char.atr.cha(1) + value;
        case 'for'
            Char.st.for(1) = Char.st.for(1) + value;
        case 'ref'
            Char.st.ref(1) = Char.st.ref(1) + value;
        case 'wil'
            Char.st.wil(1) = Char.st.wil(1) + value;
    end
    
catch
    disp('ERROR!!');
end